home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3dtabs / mainform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.2 KB  |  113 lines
  1. VERSION 2.00
  2. Begin Form MainForm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "3DTAB -  Freeware for VB from Exile Software"
  5.    ClientHeight    =   3270
  6.    ClientLeft      =   1545
  7.    ClientTop       =   1995
  8.    ClientWidth     =   6045
  9.    Height          =   3675
  10.    Icon            =   MAINFORM.FRX:0000
  11.    KeyPreview      =   -1  'True
  12.    Left            =   1485
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   218
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   403
  17.    Top             =   1650
  18.    Width           =   6165
  19.    Begin Image i 
  20.       Height          =   735
  21.       Index           =   5
  22.       Left            =   3840
  23.       Picture         =   MAINFORM.FRX:0302
  24.       Top             =   2040
  25.       Width           =   1080
  26.    End
  27.    Begin Image i 
  28.       Height          =   735
  29.       Index           =   4
  30.       Left            =   3840
  31.       Picture         =   MAINFORM.FRX:0A60
  32.       Top             =   1200
  33.       Width           =   1080
  34.    End
  35.    Begin Label l 
  36.       Alignment       =   2  'Center
  37.       Caption         =   "Click picture to see sample controls."
  38.       Height          =   255
  39.       Index           =   1
  40.       Left            =   720
  41.       TabIndex        =   1
  42.       Top             =   2880
  43.       Width           =   4455
  44.    End
  45.    Begin Image i 
  46.       Height          =   735
  47.       Index           =   3
  48.       Left            =   2400
  49.       Picture         =   MAINFORM.FRX:11BE
  50.       Top             =   2040
  51.       Width           =   1080
  52.    End
  53.    Begin Image i 
  54.       Height          =   735
  55.       Index           =   2
  56.       Left            =   2400
  57.       Picture         =   MAINFORM.FRX:191C
  58.       Top             =   1200
  59.       Width           =   1080
  60.    End
  61.    Begin Image i 
  62.       Height          =   735
  63.       Index           =   1
  64.       Left            =   960
  65.       Picture         =   MAINFORM.FRX:207A
  66.       Top             =   2040
  67.       Width           =   1080
  68.    End
  69.    Begin Image i 
  70.       Height          =   735
  71.       Index           =   0
  72.       Left            =   960
  73.       Picture         =   MAINFORM.FRX:27D8
  74.       Top             =   1200
  75.       Width           =   1080
  76.    End
  77.    Begin Label l 
  78.       Caption         =   "   3DTAB allows you to add a tab control to a VB project using VB code. The control can be added to 'dialog'-type forms, to sizeable forms, and to forms which contain other controls. It's fast, customizable, and best of all, it's still free!"
  79.       Height          =   855
  80.       Index           =   0
  81.       Left            =   360
  82.       TabIndex        =   0
  83.       Top             =   240
  84.       Width           =   5535
  85.    End
  86. Option Explicit
  87. Sub Command1_Click ()
  88. Unload Me
  89. End Sub
  90. Sub Form_DblClick ()
  91. Unload Me
  92. End Sub
  93. Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
  94. End Sub
  95. Sub Form_Unload (Cancel As Integer)
  96. End Sub
  97. Sub i_Click (index As Integer)
  98. tabsup = index Mod 2
  99. screen.MousePointer = 11
  100. Select Case index
  101. Case 0, 1
  102. Unload dlg
  103. dlg.Show
  104. Case 2, 3
  105. Unload win
  106. win.Show
  107. Case 4, 5
  108. Unload misc
  109. misc.Show
  110. End Select
  111. screen.MousePointer = 0
  112. End Sub
  113.